open(BUFF,"chr8q24_vte.tped") or die " no file exists \n";
open(NOAMBI,">chr8q24_vte_noambi.tped");
open(AMBI,">ambi.tped");
while($line = <BUFF>)
{
	chomp($line);
	if(($line =~ m/ T/ && $line =~ m/ A/) ||($line =~ m/ G/ && $line =~ m/ C/))
	{
		print AMBI $line."\n";
	}
	else
	{
		print NOAMBI $line."\n";
	}
}
